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3 COPY LOG7A24 ** MAP EC HISTORY ** 002500 2pDC2 198 DC A (ENTPT) POINT TO MAP ENTRY POINT TABLE 
4 oO IC Rk CK RO IC II I IO RC lak io oi okt TQ HH RH HH eH He HR RE A IE FE HE CN RO A AC A I HR A EE A I I 
5 * 4 2DOQ HK KM HK a a he He IK Be ee IK eh AK He 3 he 2K i i a OK ai i oi 2c i a 2 a 2 ai i ak a aK ie 2k ak ic a af oe a oe ode ae ofc ade ake 2 2 2k 2 
6 * eK PREREQUISITES #0 * 201 ** * 
7 x x 202 ** THE FOLLOWING TABLES ARE USED BY THE MDI SUPERVISOR §P3C00) * 
8 x NONE * 203 ** TO LOCATE THE CORRECT RULE TO INVOKE, TO OBTAIN THE PROPER kK 
9 x * 204 ** PARAMETERS TO PASS TO THE TU'S AND TO PASS TO THE OPERATOR * 
10 8K I I I IC RK aOR tok kk ok ok tfok kok tok ak ok 205 ** THE INDICATED MESSAGE(S). THERE ARE FOUR TABLES USED FOR THIS ** 
11 * P 206 -* PURPOSE THEY ARE: oe 
12 * #3 MODIFICATIONS KK * 
oe A 308 ot oe THES TABLE GrVES THE EDDRESS OF THE RULE TO INVOKE AND pes 
14 x CHANGES MADE TO CORRECT ERRORS FOUND WHILE IN TEST * 
15 * B x 210 ** THE ASSOCIATED STEP DECIMAL STEP NOMBER OF THAT RULE. 4k 
WETS LTS SSL SS SSS LS LS SSS. SC SL SS LSS SS TS SS SSS SCS SSS SS SSL SS SL SSCS ST SCS SL LSS. 2 tS 211 ** ENTRIES ARE AS FOLLOWES * x 
re Aet B) Bet PEE SuQbue En pee rnay STAR? AREA tt 
18 * EK REA'S INCORPORATED #3 * 
19 * * 214 ** C AN EQUATE FOR THE STEP NUMBER * 
20 * NONE * 215 ** * 
51 * 216 ** RULE INFORMATION TABLE tk 
22 OG aC I CI IIR ROK EIR IO I FO aOR I IK dak ak 217 ** THIS TABLE CONTAINES THE REQUIRED INFORMATION TO EXECUTE * * 
33 x * 218 ** THE APPROPRIATE RULE UNDER MDI. EACH RULE HAS ITS OWN oe 
24 * CK SPECIAL INSTRUCTIONS 4K * 219 *¥* UNIQUELY DES ENED anit INDICATED BELOW. END OF TABLE IS ** 
35 x * 220 ** INDICATED WITH A X*OOOO" FOR THE RULE EQUATE. OK 
26 * NONE * 221 ** * 
a7 x * 222 ** SQUES 1k 
28 KK KK KK I AICI kz I kk kak ak keto dakota teak afc ate af ick ake afc a 223 ** A) RULE EQUATE X*0100! * x 
59 x * 224 _< B) ADDRESS OF THE YES LEG RULE es 
30 * aK E. C. HISTORY KK * 
a4. ; $26 xs a A) RULE EQUATE xX'0101! et 
32 * DATE 17AUG78 DATE O20CT78 DATE 10JAN79 DATE * 
33 * E.C. 755391 E.C. 375102 E.C. 375222 EC. * ou pied 8} ADDRESS OF MESSAGE TO PRINT om 
34 * * 
CIMT ESS LL SS SSL SSS TS SPS SSS LC SSS SS SS CSL SSCS SCS S SSS S CS CCS SSS SS SSCS CSS LCS SS 2 2S 230 ** $STOP * 
002500 37 I7A24 START X'2500! START ADDRESS OF ALL 'I*t TYPE PROG 231 ** 3} RULE EQUATE X*'0102' % 
000100 38 OQUES EQU "0100! EQUATED VALUE FOR MDI STATEMENT 232 ** B) ADDRESS OF MESSAGE * & 
000101 39 @FIXT EQU x'°0101'8 FOQUATED VALUE FOR MDL STATEMENT 233 ** * 
000102 40 @STOP EQU  xX'0102' EQUATED VALUE FOR MDI STATEMENT 234 ** $GOTO P si 
000200 41 @GOTO EQU x'0200! EQUATED VALUE FOR MDI STATEMENT 235 ** A) RULE EQUATE X*'0200' * 
000201 42 @CALL FOU x'0201° EQUATED VALUE FOR MDI STATEMENT 236 ** B) ADDRESS OF MESSAGE * % 
000300 43 @INPT EQU X*'0300! EQUATED VALUE FOR MDI STATEMENT 237 ** C) NAME OF MAP TO GO TO * % 
000400 uu @OUXX EQU X*O4UOO! EQUATED VALUE FOR MDI STATEMENT 238 ** D) ENTRY POINT WITHIN GO TO MAP TO USE ae 
000500 45 atuxx EQU x'0500' EQUATED VALUE FOR MDL STATEMENT 239 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE * x 
000600 46 @NVLD EOQU <X'0600! FOUATED VALUE FOR MDI STATEMENT 241 ** * 
000000 47 EQ EQU  x'0000! EQUATE FOR EQUAL 242 ** SCALL : bibs 
000004 48 NE FOU x'OOO4U! FQOUATE FOR NOT EQUAL 243 ** A) RULE EQUATE X*0201' 1k 
000008 49 HI FOU x'0008' EQUATE FOR HIGH 244 ** B) ADDRESS OF MESSAGE  % 
00000C 50 NH EQU X¥'O000C! EQUATE FOR NOT HIGH 245 ** C) NAME OF MAP TO CALL * 
000010 51 Lo EQOU X'0010! EQUATE FOR 246 ** D) ENTRY POINT WITHIN CALLED MAP TO USE * 
000014 52 NL EQU Xoo? EQUATE FOR NOT LOW 247 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE * 
000010 53 LT FOU x'0010! EQUATE FOR LESS THA 248 ** * % 
00000C 54 LE EQU x*000Cc! EQUATE FOR LESS THAN OR EQUAL TO 249 *¥* SINPT ** 
000008 55 GT FOU xX'O008" FOUATE FOR GREATER 250 ** A) RULE EQUATE X*0300° +e 
000014 56 GE EQU X'O0O14! FQUATE FOR GREATER THAN OR EQUAL TO 251 ¥** B Sonpes rie ae EBCDIC OR_ HEX) =* 
000200 57 ON EQU  x'0200! EQUATE FOR ON , 2392 ** C) ADDRE ES LEG RULE aed 
000202 58 OF EQU X'0202! EQUATE FOR OFF 253 ** D DESTINATION LOCATION OF INPUT DATA * & 
000204 59 MX EQU X'0204' EQUATE FOR MIXED 254 *¥* E) LENGTH OF INPUT DATA * % 
000000 60 EBC FOU x'0000! EQUATE FOR EBCDIC DATA TRANSFER 255 “** F) LOWER LIMIT OF GOOD DATA * 
000001 61 HEX EQU X'OOOt! EQUATE FOR HEX DATA TRANSFER 256 ** G) HIGHER LIMIT OF GOOD DATA +* 
000001 62 XTRNL EQU X'0001' FOUATE FOR EXTERNAL REFERENCE 257 ** ** 
000000 63 INTRNL EQU x* 0000! EQUATE FOR INTERNAL REFERENCE 258 ** $QUXX * 
000000 64 PARM EQU x'0000'8 EQUATE INDICATING PARAMETER 259 ** A) RULE Bae X*O400! pee 
000001 65 DA EQU X¥'0001' EQUATE FOR DEVICE ADDRESS 260 ** B) ADDRES YES LEG RULE ** 
000002 66 UA EQU x'*0002! EQUATE FOR UNIT ADDRESS 261 ** C) TU BRANCH TO ADDRESS SECONDAA * x 
000000 67 DUMMY EQU X'0000! DUMMY EQUATE 262 ** D) TU BRANCH TO ADDRESS (SECONDARY) nied 
001800 69 PID FOU *-X'QDOO! ADDRESS OF MDI HEADER 263 ** E) LENGTH OF PARAMETER IN BYTE 7* 
000232 70 PTYPE Eu *~X*22CEt ADDRESS OF PROCESSOR TYPE FIELD 264 ** F) PARAMETER TO PASS TO TU ** 
00180C 71 STEPNUM EQU  PpID+x'000C! ADDRESS OF DECIMAL STEP NUMBER 265 ** G) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER * 
00180E 72 OPWD1 EQU PID+X'OOOE! ADDRESS OF OPTION WORD ONE 266 ** ** 
001810 73 OPHD2 EQU PID+X'00108 ADDRESS OF OPTION WORD TWO 267 ** STUXX *% 
001818 74 TUSTATUS EQU PID+X*00188 ADDRESS OF TU STATUS WORD 268 ** A) RULE EQUATE X'0500! ** 
00181A 75 TUWORK EQU PID+X"'OO1A!® ADDRESS OF TU WORK AREA 269 ** B) ADDRESS OF YES LEG RULE * * 
00189A 76 TUPARM1 Bou PID+X'OO9A® ADDRESS OF PARM 1 POINTER 270 ** C) TU BRANCH TO ADDRESS * x 
00189C 77 TUPARM2 EOQU PID+X'009C! ADDRESS OF PARM 2 POINTER 271 ** D) TYPE OF COMPARE TO MAKE ON RESULTS * * 
00189E 78 TUPARM3 EQU PID+X'OO9E! ADDRESS OF PARM 3 POINTER 272 ** E) LENGTH OF COMPARED RESULTS * 
0018A0 79 TUPARM4Y EOQU PID+X'OOAO! ADDRESS OF PARM 4 POINTER 273 ** F) MASK FIELD FOR COMPARE * x 
0018A2 80 TUPARMS EQU PID+X'OOA2! ADDRESS OF PARM 5 POINTER 274 ** G) LENGTH OF PARAMETER IN BYTES ** 
0018 A4 81 TUPARM6 EQU PID+XtOOA4! ADDRESS OF PARM 6 POINTER 219% H) PARAMETER TO PASS TO THE TU * * 
0018A6 82 TUPARM7 EQU PID+X*OOA6! ADDRESS OF PARM 7 POINTER 276 ** I) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER * * 
0018A8 83 TUPARM8 KOU PID+X'OOA8! ADDRESS OF PARM 8 POINTER 217 ** * 
OO18AA 84 TUPARM9 EQU PID+X'OOAA' ADDRESS OF PARM 9 POINTER 278 ** SNVLD ** 
0018AC 85 TUPARM10 EQU PID+X*OOAC! ADDRESS OF PARM 10 POINTER 2719 ** A) RULE EQUATE X*0600! * 
O018AE 86 TUPARM11 EQU PID+X'OOAE? ADDRESS OF PARM 11 POINTER 281 ** ** 
0018B0 87 TUPARM12 EQU PID+X'OOBO! ADDRESS OF PARM 12 POINTER 202 ** ENTRY POINT TABLE * * 
0018B2 88 TUPARM13 EQU PID+X'QOOB2! ADDRESS OF PARM 13 POINTER 283 ** THIS TABLE CONTAINS THE ENTRY POINTS WITHIN THE MAP THAT * 
0018B4 89 TUPARM14 EOU PID+X'OOB4! ADDRESS OF PARM 14 POINTER 284 ** THE MAP CAN BE ENTERED FROM THESE ENTRY POINTS ARE * * 
0018B6 90 TUPARM15 EQU PID+X'OOB6! ADDRESS OF PARM 15 POINTER 285 ** REFERENCED BY NAME AND ADDRESS. ENTRIES ARE AS FOLLOWES: * * 
0018B8 91 TUPARM16 EQU PID+X'OOB8! ADDRESS OF PARM 16 POINTER 286 ** * * 
OO18BA 92 TUMSGWTR EQU PID+tX'OOBA® ADDRESS OF -—> TO COMMON MSG WRITER 287 ** 3} NAME OF ENTRY POINT * 
0018BE 93 TUUA EQU PID+X'OOBE! ADDRESS OF UNIT ADDRESS IN EBC 288 ** ADDRESS OF ENTRY POINT RULE TABLE ** 
0018C0 94 TUDA EQU PID#X'OOCO! ADDRESS OF DEVICE ADDRESS IN EBC 289 ** * 
0018C2 95 TUBUFF FOU PID#X'00C2! ADDRESS OF LAST USED WORD IN MAP 290 ** THE ENTRY POINT TABLE END IS INDICATED BY A X*0000! * * 
0018C4 96 TULAST EOQU PID+X'O0CY! ADDRESS OF LAST ADDRESSABLE WORD Po Ma ade * 
0018C6 97 TURESULN EQU PID+X*OOC6! ADDRESS OF LENGTH OF TU RESULTS 222: <* MESSAGE TABLE ** 
0018C8 98 TURESUL EOQU PID+x'OOC8? ADDRESS OF TU RESULTS FIELD 293 ** THIS TABLE CONTAINES THE MESSAGE PASSED TO THE OPERATOR * & 
0018FC 99 MAPNAME Bou PID+X"OOFC! ADDRESS OF MAP NAME FIELD IN HEX 294 ** VIA THE MDI SUPERVISOR. THE TABLE IS AS FOLLOWES: ** 
001948 100 TUINPT EQU PID+X'0O148!8 ADDRESS OF $INPT DATA 295 ** ** 
00196E 101 PARMARA EOQU PID+X'O16E* ADDRESS OF $INPT INPUT AREA 296 ** A) EQUATE FOR START OF MESSAGE BLOCK ** 
0019B8 102 @DCADD1 EQU PID+X'0O1B8! MDI -POINTER 297 ** B) NUMBER OF LINES OF MESSAGE * * 
0019BA 103 @DCADD2 Eu PID+X'O1BA® MDI POINTER 298 ** C) LENGTH OF FOLLOWING LINE * 
0019C4 104 SUPSTAT EOU PID+X'01C4! ADDRESS OF MDI STATUS 299 ** D) FIRST LINE OF MESSAGE * * 
0019D0 105 DEVADD EQU PID+X'0O1D0! ADDRESS OF DEVICE ADDRESS TABLE 0 300 ** E) LENGTH OF FOLLOWING LINE ** 
0019DA 106 DEVADD1 EQU PID+X'O1DA® ADDRESS OF DEVICE ADDRESS TABLE 1 301 ** F) SECOND LINE OF MESSAGE * 
0019E4 107 DEVADD2 EQU PID+X*O1E4! ADDRESS OF DEVICE ADDRESS TABLE 2 302 ** G) ETC. ; * * 
0019EE 108 DEVADD3 EQU PID+X"O1EE! ADDRESS OF DEVICE ADDRESS TABLE 3 303 ** ** 
0019F8 109 DEVADD4Y EOU PID+X'O1F8! ADDRESS OF DEVICE ADDRESS TABLE 4 SOU BR KA He RK KK ko KK KK KK kK KK kok kok kok koko kok kkk kok kok kok ak kodak ak kak okokok kodak kok iat ak ok 
001A02 110 DEVADDS FOU PID+X'0202! ADDRESS OF DEVICE ADDRESS TABLE 5 305 RK KK RK KK KK ok KK kok kok kkk kok fo ok kkk koko kok kok kook fok kk kok kk kota kok kok dak fog ge tok ag godt ak akc 
001A0C 111 DEVADD6 EQOU PID+X'020C! ADDRESS IF DEVICE ADDRESS TABLE 6 
001A16 112 DEVADD7 E Oe BID#+K*0216" ADDRESS OF DEVICE ADDRESS TABLE 7 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
OO2E3E 0001 1676 pc AL2 (0001) 179 3+* 
OO2E40 0008 1677 DC A (0 08) OO2ZEBE 4020 2E74 7A02 17944+T7A02 MVWI X'7A02', $TUID SET UP TEST UNIT ID 
OO2E42 DUCIDTF7ICIFIF2E4 1678 pc CLOOO8* MAPT7A72U* OO2EC4 5700 1795+ BXS R7 RETURN TO MDI SUPVR 
OO2E4A 1679 FO0083 EQU * 1797 OP OM gu 
OO2EUA 0001 1680 D AL2 (0001) T7982 RO IO OR ORR SIO IO ORO RRR OK KR KK OE 
OO2E4C 0008 1681 DC A (0 08) 1799 * * 
OO2E4E D&CIDIFICIFT7F6EY4 1682 DC CLOOOS8*MAPTAT76U! 1800 * EQUATED NAMES FOR SUPPORTED SVC'S * 
002E56 1683 F00081 EQU * 1801 * % 
002E56 0001 1684 DC ee Apay 1802 HK MH Me ee Ne aK eR ae ee oe a ac ee ae ee ae i oe KK i OK KK KK KK KK KK eK KK KE KK KKK KK 
002E58 0008 1685 DC A (0 08) 000000 1803 ouUT EQU 0 OUT SVC 
OO2E5A D4&CID7F7C1IF7F6D6 1686 DC CLOO08* MAP7A760! 000001 1804 OUTIN EOU 1 OUTIN SVC 
002862 1687 FO0080 EQU * 000002 1805 IDLE EQU 2 IDLE SVC 
00O2F62 0001 1688 pc AL2 (0001) 000003 1806 IDLES EQU 3 IDLE SVC - INDEPENDENT OF CPU TYPE 
OO2E64 0008 1689 DC A(0 08) 000004 1807 CHNGE EQU 4 CHANGE LEVEL SVC 
0O02E66 D4&C1IDIFICIF7F6D2 1690 ne CLOO008"*MAPTAT6K' 000005 1808 PGMCK EQU 5 ALLOW RETURN ON PROGRAM CHECK SVC 
1691 PDIT 00 000006 1809 EXIT EOQU 6 EXIT SVC 
OO2E6E 0000 1693+OPTN1 DC X¥'OO00! PROGRAM OPTION CONTROL WORD 1 000007 1810 TERM EOQU 7 TERMINATE SVC 
1694+* 000008 1811 RESET EQU 8 RESET DEVICE SVC 
002E70 0000 1695+OPTN2 DC x*0000!8 PROGRAM OPTION CONTROL WORD 2 000009 1812 RID EQU 9 READ ID SVC 
1696+* BIT HEX OOOOOA 1813 START EQU 10 START CYCLE STEAL SVC 
000010 1697+B48 Bou 16 0 8 PROBLEM PROGRAM CONTROL BITS 00000B 1814 STCSS EQU 11 START CYCLE STEAL STATUS SVC 
000011 1698+B49 EQU 17 1 4 * 00000C 1815 PREP EQU 12 PREPARE DEVICE SVC 
000012 1699+B50 EQU 18 2 2 * THESE BITS ARE USED WITH THE 00000D 1816 READO EQU 13 READ WITH FUNCTION BIT 3 OFF SVC 
000013 1700+B51 EOU 19 3 1 * SECOND OPTION WD AND ARE TO OOO00E 1817 READ1 EU 14 READ WITH FUNCTION BIT 3 ON SVC 
000014 17014+B52 EGU 20 4 8 * BE ASSIGNED BY EACH PROGRAMMER OOOO00F 1818 RSTAT EQU 15 READ STATUS SVC 
000015 1702+B53 EOU 21 5 rT * 000010 1819 WRITO EOQU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 
000016 1703+B54 EQU 22 6 2 * 000011 1820 WRIT1 EQU 17 WRITE WITH FUNCTION BIT 3 ON SVC 
000017 1704+B55 EQU 23 7 1 * 000012 1821 CTRL EOU 18 CONTROL SVC 
000018 1705+B56 EQU 24 8 8 * 000013 1822 RICB EQU 19 RELEASE INTERUPT CONTROL BLOCK SVC 
000019 1706+B57 EQU 25 9 rm * 000014 1823 CICB EQU 20 CONNECT INTERUPT CONTROL BLOCK SVC 
O00001A 1707+B58 EOU 26 10 2 * 000015 1824 HIO EQU 21 HALT ALL I/0 
00001B 1708+B59 EQU 27 11 1 x 000016 1825 REOSD EOQU 22 REQUEST USE OF DCP DISK SVC 
00001C 1709+B60 Eu 28 12 8 * 000017 1826 RELSD EU 23 RELEASE USE OF DCP DISK SVC 
00001D 1710+B61 EOU 29 13 m * 000018 1827 HALT EOU 24 HALT 
OO001E 17114+B62 EQU 30 14 2 Py 000019 1828 ETOH EU 25 EBCDIC TO HEX SVC (STRING 
00001F 1712+B63 EQU 31 15 1 * OOOOTA 1829 HTOE EQU 26 HEX TO EBCDIC SVC (STRING 
OOO01E 1713+CH EQU 30 14 2 CHARACTER SUPPLIED 00001B 1830 ATOH EQU 27 ASCII TO HEX SVC TRING 
OO0001F 17144+CMP EQU 31 15 1 COMPARE OPERATION 00001C 1831 HTOA EQU 28 HEX TO ASCII SVC (STRING 
002E72 0000 1716+OPTN3 DC x'0000°8 PROGRAM OPTION CONTROL WORD 3 00001D 1832 ETOA EQU 29 EBCDIC TO ASCII SVC (STRING 
1717+* 00001E 1833 ATOE EQU 30 ASCII TO EBCDIC SVC (STRING 
1718+* 0 MYSTERY INTERRUPT MI 8 CS STATUS IN PROGRESS cs 00001F 1834 READI EQU 31 READ DATA SETS FOR MDI/UTIL 
1719+* 1 ERROR INTERRUPT ER 9 CS AVAILABLE CSA 000020 1835 WRITI EQU 32 WRITE DATA SETS FOR UTIL 
1720+* 2 EXPECTED INTERRUPT XI 10 CS STATUS INTERRUPT ERR CE SESW MES PTTL SS SS LL SSL SS SS TSS SSS STS TS SSS SL SS ee SSS eS TCSP SCS ST TCS£C+rSP eT Le Le PP ee ee 2 tS 
1721+* 3 INTERRUPT RECEIVED IN 11 ISB BITS ON (1-7) ISBON 1838 * * 
1722+%* 1839 * EQUATES USED BY TU'S AS CONSTANTS * 
1723+* ~4 EXPECTED ERR/ATTENT XE 12 TEST UNIT RESULTS VOID NG 1840 * * 
1724+* 5 HARD ERROR FOUND HE 13 OIO CC ERROR ToOcc seoe RMS STS SPT SSS SSS TESST S SS SLT SSS SSS SS SSS SS LSS SS PSSST SSS SS SCS S SSL SSS SS TT 2 2 SF 
1725+* 6 WRONG INTR LEVEL $LE 14 NO INTERRUPT NOIN OOOO04E 1842 PLUS EQU Ct+' PLUS CHAR 
1726+* 7 NO INTR EXPECTED NI 15 INTERRUPT CC ERROR INCC 000060 1843 MINUS EQU Ct-t MINUS CHAR 
1727+%* BIT HEX 000000 1845 ZERO EOQU 0 
000020 17284+MI FOU 32 0 B MYSTERY INTERRUPT HAPPENED 000001 1846 ONE EQU 1 
000021 1729+ER EOQU 33 1 4 ERROR RECEIVED ON INTERRUPT 000002 1847 THO EQU 2 
000022 1730+XT EQU 34 2 2 EXPECTED INTERRUPT CONTROL BIT 000003 1848 THREE EU 3 
000023 1731+1IN EOU 35 3 1 INTERRUPT RECEIVED CONTROL BIT 000004 1849 FOUR EOU m1 
000024 1732+XE EOU 36 4 8 EXPECTED ERROR RESPONSE 000005 1850 FIVE EQU 5 
000025 1733+HE EQU 37 5 rm HARD ERROR, 8 RETRIES 000006 1851 SIX EQU 6 
000026 17344+$LE EQU 38 6 2 INTERRUPT ON WRONG LEVEL ERROR 000007 1852 SEVEN EQU 7 
000027 1735+NI EQU 39 7 1 NO INTERRUPT EXPECTED FE 000008 1853 EIGHT EQU 8 
000028 1736+CS EQU 4oO 8 8 CYCLE STATUS IN PROGRESS 000009 1854 NINE EQU 9 
000029 1737+CSA EQU 41 9 4 CYCLE STEAL AVAILABLE OOOOOA 1855 TEN EQU 10 
00002A 1738+CE EQU 4W2 10 2 CYCLE STEAL STATUS INERRRUPT ERROR 00000B 1856 ELEVN EQU 11 11 
00002B 1739+ISBON EQU 43 11 1 ISB BITS ON fe) 00000C 1857 TWELV EQU 12 12 
00002Cc 17404NG EQU Tar 12 8 TEST UNIT RESULTS NO GOOD 00000D 1858 THRTN EQU 13 13 
00002D 17414+I0CC EQU u5 13 mt OIO CC ERROR OOO00F 1859 FIVTN EQU 15 15 
00002E 1742+NOIN EOU 46 14 2 NO INTERRUPT 000010 1860 SIXTN EQU 16 16 
00002F 17434INCC EOQU 47 15 1 INTERRUPT CC ERROR 000020 1861 THRY2 EQU 32 32 
17444* 000040 1862 SIXTY EQU 64 64 
1745+%* COMMON BUFFER FOR PRINTING DATA 000080 1863 ONE28 EOU 128 128 
1746+% 000100 1864 TWOS5S6 EQU 256 256 
0O0O2E74 0000 1748+$TUID DC A (*~* TEST UNIT IDENTIFICATION 000400 1865 ONEK EQU 1024 1024 
002E76 0000 17494+$I0OIN DC A (*-* I/O AND INTR CONDITION CODES 000800 1866 TWOK EQU 2048 2048 
002EF78 0000 1750+$ISB DC A (*-* R INTR STATUS BYTE & DEV ADRS 000C00 1867 THREK EQU 3072 3072 
OO2E7A 0000 1751+LSTIO DC A’ *-* ADRS OF LAST I/O + 4 BYTES 001000 1868 FOURK EQU 4096 4096 
002E7C 0000 1752+DEV1 DC A (*-* DEVICE DEPENDENT DATA FFFFFF 1870 M1 EQU -1 -1 
0OO2E7E 0000 1753+DEV2 DC A (*-* * FFFFFE 1871 M2 EQU -2 -2 
002E80 0000 17544+DEV3 DC A (*=x * FFFFFD 1872 M3 EQU -3 -3 
002F82 0000 17554#DEV4 pc A (*-* CS STATUS ERROR ISB & INTR CC FFFFFC 1873 MU EQU -4 ~-& 
OO2ZE7TC 17564+SCTID EQU DEVI READ ID BUFFER FOR IBIS §& TERN 1875 SPP SSS ES SSS SL SSS TT SSL SSS TS SS SSS SSS SS SL SSS CS eee CS SLC CSS SSS STS SCS PS +L es + 2. + 2 
002E84 1757+DCBUF EQU * DCB BUFFER FOR LAST DCB USED 1876 * % 
O0O0O2E84 0000 1758+DCB1 DC A (*-* LAST DCB TABLE, CONTROL WORD 1877 * THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THE * 
002F86 0000 17594+DCB2 DC A (*-* LAST DCB TABLE, DFV DEP WORD 1878 * BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. * 
002E88 0000 1760+DCB3 Dc A (*-* LAST DCB TABLE, DEV DEP WORD 1879 * * 
OO2ZE8A 0000 17614+#DCBY DC A (*-* LAST DCB TABLE, DEV DEP WORD 1880 SSS PS SSS SSS SSS SS SSL ST SSS EL SS SESS SSS SSS ESS SS SST TCC SCS SSC SCS eT ST SCS eS ee St £4 
OO2E8C 0000 1762+DCB5 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000000 1881 BSO EQU 0 
OO2E8E 0000 1763+DCB6 DC A (*-* LAST DCB TABLE, CHAIN ADRS 000001 1882 BS1 EQU 1 
002E90 0000 1764+DCB7 DC Rh (*-* LAST DCB TABLE, BYTE COUNT 000002 1883 BS2 EOU 2 
002E92 0000 1765+DCB8 DC A (*-* LAST DCB TABLE, BUFFER ADDRESS 000003 1884 BS3 EQU 3 
1766+* 000004 1885 BS4 EQU mr 
0O02E94 1767+CSBUF EQU * CYCLE STEAL DATA BUFFER 000005 1886 BSS EQU 5 
00O2E94 0000 1768+CSTL1 DC A (*-* CS STATUS WD 0, RESIDUAL ADDRESS 000006 1887 BS6 EOU 6 
002E96 0000 1769+CSTL2 DC A (*-* CS STATUS WD 1, RESIDUAL COUNT 000007 1888 BS7 EOU 7 
002E98 0000 17704+CSTL3 DC A (*-* CS STATUS WD 2, RETRY CNT WD 1 000008 1889 BS8 EQU 8 
OO2E9A 0000 17714+CSTL4Y DC A (*-* CS STATUS WD 3, RETRY CNT WD 2 000009 1890 BS9 EQU 9 Z 
002E9C 0000 1772+CSTL5 DC A (*-* CS STATUS WD 4, ERROR STATUS WD 1 OOOOOA 1891 BS10 EQU 10 
0OO2E9E 0000 1773+CSTL6 DC A (*-* CS STATUS WD 5, ERROR STATUS WD 2 00000B 1892 BS11 EQU 11 
OO2EA0O0 0000 1774+CSTL7 DC A (*-* CS STATUS WD 6, LAST DCB ADDRESS 00000C 1893 BS12 EOU 12 
OO2EA2 0000 1775+CSTL8 DC A (*-* CS STATUS WD 7, PREVIOUS HD/CYL 00000D 1894 BS13  EQU 13 
OO2EA4 0000 17764+CSTLO DC A (*-* CS STATUS WD 8, CURRENT HD/CYL OOO000E 1895 BS14 EQU 14 
OO2EA6 0000 17774+CST10 DC A (*-* CS STATUS WD 9, FLAG/SECTOR OOO000F 1896 BS15 BOU 15 
OO2EA8 0000 17784+CST11 DC A (*-* CS STATUS WD 16, HEAD/CYLINDER 1898 COPY T7AOODCB 23J3AN78 
OO2EAA 0000 17794+CST12 DC A (*- * CS STATUS WD 11, DIAG BYTES 1, 2 1899 ** (T7AOODCB) 
OO2EAC 0000 1780+CST13 DC A (*-* CS STATUS WD 12, AND 3 + WRAP BYTE 1900 * 
. 1781+* 1901 A HH A RA RA RR AR IE I I I AC HO A A HK 2 BT TE EK ERK EK 
OO2EAE 0000 1782+$SUBN DC A (*-* LAST SUBROUTINE ADDRESS USED 1902 * 
002EBO0 00000000 1783+$DATA DC 2A (*-* OPTIONAL DATA 1903 * DCB TABLES AND DC's 
OO2EB4 0021 17844+$INTL DC x*00218 INTERRUPT LEVEL REQUESTED 1904 * 
OO2EB6 0000 1785+TURTN DC A (*—*) TEST UNIT RETURN ADRS TO MDI 1905 73 IOI OI OR IIR ICI FR I FR kak 
0O2EB8 00 1786+$DVID DC xfoor DEVICE ID 1906 * 
OO2EBA 19D0 1787+SVCAL DC A (DEVADD) ADRS OF DEVICE ADDRESS 1907 ***** DIAGNOSTIC DCB CC AK 
00O2EBC 0000 1788+ Dc A (¥-*) IBIS CYLINDER ADDRESS 1908 * 
1789+* 0O02EC6 2008 1909 DGDCB DC X¥*2008! DIAGNOSTIC DCB 
1790+* THIS TEST UNIT WILL RETURN TO MDI WITHOUT DOING ANY PROGRAY 002EC8 0000 1910 DC A (*-* FLAG / PHYSICAL SECTOR# 
1791+* FUNCTION. THE RESULTS THAT WERE SET UP IN THE RESULTS AREA ARE OO2ZECA 0000 1911 DC A (*-* HEAD / CYLINDER#'S 
1792+* STILL VALID BUT A DIFFERENT TEST IS TO BE PERFORMED. 0O02FCC 0000 1912 DC Xx*Q0008 NOT USED 
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P/N=832766 
STATEMENT 
pe RARSR 
DC X'OQ100° 
DC A (*-*) 
RECALIBRATE DCB ¥****** x 
DC X*'OOOT? 
DC 7A (*-*) 
WRITE SECTOR ID ******x 
DC X*002D! 
DC OA fo 
DC X*000 ‘ 
pe ARSE 
DC x'oood? 
DC A (WRSTID) 
READ SECTOR ID DCB ***x 
DC X*201C! 
Des ¥*00008 
DC X*QO00O0! 
bef 
DC X*OQOO4! 
DC A (SCTID) 
SEEK DCB **%* 2% % 4% 
DC X'QOO00! 
Be oey 
DC X*000 ‘ 
Be RSE 
DC X*OQ00!8 
DC X*'QOO008 
CYCLE STEAL STATUS DCB 
DC X' 2000! 
DC Frot 
DC For 
DC F'g? 
DC Pyos 
DEX" 001a! 
DC A (CSBUF) 
WRITE DCB *****KKKX X 
DC X'0028! 
DC A (*-* 
DEC hS 
pe SE) 
DC X'01008 
DC A (*-*) 
VERIFY DCB eK I EK OK 
DC X'0019! 
DC A (*~-* 
De ARO 
DC A (RSBA) 
DC A (*-* 
DC A (*-* 
DC For 
READ DCB He ka 2k ak ok ak 
DC X'2018! 
DC A (*-* 
DE Ate 
Be OA ESRD 
DC X*01008 
DC A (*-*) 
WRITE SECTOR ID SKEWED 
DC X'OO2F'! 
DC A ae 
De OFfOt. 
we : Boer) 
DC X'O004! 
DC A (WRSID) 
READ SECTOR ID SKEWED 
DC X'*201D* 
DC A (*-* 
DEF YO 
pe GESED 
DC x'ooode 
DC A (SCTID) 
READ MULTIPLE SECTOR IDS 
Be Ree 
DC A fe} 


5 EC=375222 


COPYRIGHT IBM CORP 1976 
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RECALIBRATE DCB 
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E SECTOR ID CNTL W 
PHYSICAL wee 


gi 
G 
D YLINDER# 


KK XK 


SECTOR ID DATA ADDRESS 


SEEK DCB CONTROL WORD 
NOT USED 

HEAD / CYLINDER#*S 
NOT USED 

RSB_ ADDRESS 

CHAIN ADDRESS 

NOT USED 

NOT USED 


EE KK OK 2 


CONTROL WORD 

NOT USED 

NOT USED 

NOT USED 

NOT USED 

NOT USED 

13 WORDS OF STATUS 


ADDRESS OF CYCLE STEAL STATUS DATA 


WRITE DATA DCB CNTL WORD 
FLAG / RECORD# 
/ CYLIDNER#'S 
SCAN / REPEAT COUNT 
RSB_ ADDRESS 
CHAIN ADDRESS 
BYTE COUNT 
WRITE DATA ADDRESS 


CONTROL WORD 

FLAG / RECORD# 

HEAD / CYLINDER#'S 
SCAN / REPEAT COUNT 
RSB ADDRESS 

CHAIN ADDRESS 


BYTE COUNT 

NOT USED 

READ DCB CONTROL WORD 
FLAG / RECORD# 

HEAD / CYLINDER#'S 
SCAN / REPEAT COUNT 
RSB ADDRES 

CHAIN ADDRESS 

BYTE COUNT 

READ DATA ADDRESS 


HK KK 


CONTROL WORD 

FLAG / PHYSICAL SECTOR# 
HEAD / CYLINDER#'S 

NOT USED 

RSB ADDRESS 

CHAIN ADDRESS 

BYTE COUNT 

ADDR OF SECTOR ID DATA 


% KKK 


CONTROL WORD 
FLAG / PHYSICAL SECTOR# 
HEAD / STUER GS 


RSB_ ADDRESS 

CHAIN ADDRESS 

BYTE COUNT 

SECTOR ID DATA ADDRESS 


eK KK 
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SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
DC Ftor NOT USED 
DC A (RSBA) RSB ADDRESS 
DC Ae CHAIN ADDRESS 
DC X"O0B84" BYTE COUNT 
: DC A (IDOO) DATA AREA ADDRESS 
* CONSTANTS AND DEFINED STORAGE LOCATIONS 
ZEROO DC X¥*0000! CONSTANT ZERO 
ONE1 DC X¥*'0001! CONSTANT ONE 
RAY DC A (*—*) WRITE PARAMETER POINTER 
WDATA DC X"EB6D! WRITE DATA 
DC X'6BDB' 
LGSEC DC X*0000! LOGICAL SECTOR # 
PHYSC DC X¥*'0000! CONVERTED PHYSICAL SEC # 
WRSID DC X' 0000! FLAG,SECTOR (WRT SECTOR ID DATA) 
DC X¥'0000! HEAD,-CYLINDER 
WSIDT DC X'PF34! WRITE SECTOR ID TEST DATA 
DC X'5678! * 
SCTST DC X¥'0000! READ SECTOR ID TEST DATA BUFFER 
DC X¥'0000° 
RSBA DC OA (*—#) RESIDUAL STATUS BLOCK 
CTRO2 DC X¥'0000 COUNTER 
CTRO3 DC X¥*0000! COUNTER 
ID00. pC X¥'0000! ID ADDRESS TO BE SET BY USER 
PDATA DC X¥'1010! WRITE DIAG WORD 1 DATA PATTERNS 
DC X¥'5555! * 
DC X'AAAA' * 
DC X'FFFF! * 
7 A RR A A ee A Re NO a a a eK IK LG 7 7 EH HH HH HH Rt tk ke a 
x 
* SUBROUTINE 
: PURPOSE 
* COMPARE READ SECTOR ID DATA TO WRITE SECTOR ID DATA 
: CALLING SEQUENCE 
* BAL CMPRW,R6 (NORMAL) 
* RETURN 
* BXS (R6,2) NORMAL 
x 
te FS 2S SSS SSS LS SSS SSS SSP SSS TSS SSS S SSE SSE SSS SSS LS SSS SSC SLO SSL SS SP LSS £2 2s 
* 
CMPRW MVWI 4,R7 COMPARE BYTE COUNT 
MVA  SCTID,R3 ADDR OF RD SEC ID DATA 
MVA  WRSID,R5 ADDR OF WR SEC ID DATA 
CFNEN (R3), (R5) COMPARE ID DATA 
5) BCH IF WRITE ID DATA OK 
B { * COMPARE ERROR 
SF StS SSS SSL SSS SSS SS SES SS SS SL SS SS SSS SSE SLL SS SS SSL CSS SSOSLL SO Stee ese 22 SS: 
x 
* EXECUTE INPUT & OUTPUT COMMANDS 
* TO EXECUTE ALL 1/0 COMMANDS FROM A COMMON PLACE. 
* EACH OF THESE ENTRIES SET R7 WITH THE ADRS OF ITS PARAMETER 
* LIST AND ANY SPECIAL SWITCHES BEFORE BRANCHING TO THE 
* SUPVR CALL. 
* THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: | 
x 1. LOST INTERRUPTS BY TIMING OUT A COUNTING LOOP 
: 2. ERROR INTERRUPTS RECEIVED FROM SUPVR 
* THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
* 1 BAL  $RKEW,R6 READ SECTOR ID SKEWED 
* 2 BAL $WKEW,R6 WRITE SECTOR ID SKEWED 
* 3 BAL $WSEC,R6 WRITE SECTOR ID 
* 4 BAL $DIAG,R6 DIAGNOSTIC 
* 5 BAL XIOCS,R6 CYCLE STEAL STATUS 
* 6 BAL $SEEK,R6 SEEK 
*7 BAL $RECL,R6 RECALIBRATE 
* 8 BAL $RDID,R6 READ SECTOR ID 
* 9 BAL  $RD,R6 READ 
* 10 BAL  $RDVY,R6 READ VERIFY 
* 11 BAL $WRT,R6 WRITE 
* 12 BAL  $RDIM,R6 READ MULTI SECTOR IDS 


3 AE i a He ec ie ei 2 A eK a A 2K IK aK eI a 2 2 a 2 ae 2 2 i 2 a 22h 2K a a 2c ic ai ake cc 2k ae ac ak ok 2c fc 2 ak 2k ok ak 


* 


$SEEK uVA SKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
* 
$RECL MVA CLDCB, IODCB SET UP BLOCK FOR SVC CALL 
x 
$RDID MVA -RSDCB, IODCB SET UP BLOCK FOR SVC CALL 
MVBI X*BB')R3 SET BUFFER TO B'S 
MVA  SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS 
MVWI 4,R7 SETUP BUFFER LENGTH 
FFN R3 (B5) INIT READ SECTOR ID BUFFER 
MVA SCTID,RSDCB+14 DATA ADDR 
: J XIO 
$RDIM MVA  RMDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
MVWI 132,R7 SET BUFFER LENGTH 
MVA 1D06,R5 SET BUFFER ADDRESS 
MVBI X'BB! R3 SET CLEAR CHARACTERS 
FFN  R3, (R5) CLEAR THE BUFFER 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
00300C 5064 2142 “ J XIO Zoo : AND DOES NOT POST INTERRUPT STATUS) 
+ 
00300E OBFF 2144 $RD MVBI X'FF',R3 SETRD BUFFER TO ALL FS 2822+* RETURN CONTROL 
003010 6D08 2F54 2145 MVW RDDCB+14,R5 SET UP READ BUFFER ADRS 2823+* 
003014 6F08 2F52 2146 MVW RDDCB+12, R7 SET UP BUFFER LENGTH 2824+* BXS R6, 2) RETURN TO USER NO ERROR 
003018 2BAC 2147 FFN R3 fB5) CLEAR READ BUFFER 2825+* OR of * RETURN AND RETRY ON ERROR 
OO301A 4020 31E8 2F46 2148 SRDS MVA RDD B, ODCB SET UP BLOCK FOR SVC CALL DB DG ERK HK KH He ae ee HE EK he he ee ee he a he OK A 2 2 ea i 2c he cK ee a he ae ah ok kai af 2c af a ak a aie age ae ake af ae ake af ae ate ade ak ae oe kc 3c 
003020 505A 2149 J 0030D6 CB25 31EA 2828+XI0 MVWZ IOMOD,R3 SET MOF OF 0 FOR CYCLE STEAL OP 
2150 * 0030DA 500E 2829+ J XIO1 CS I/0'S ARE NOT RETRIED 
003022 4020 31E8 2F36 2151 $RDVY MVA VRDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 2830+ 
003028 5056 2152 J XIO 0030DC 4020 31EA 000D 2831+XIODG MVWI X*'O00D',IOMOD SET MODIFIER FOR DIAGNOSTIC OPS 
2153 * 0O030E2 5OOA 2832+ J XIO1 GO TO CS OPS 
00302A 4020 31E8 2F26 2154 $WRT MVA  WRDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 2833+* 
003030 5052 2155 J XIO OO30E4 4CAA 2834+ TBTR R4Y,CE RESET CS STATUS INTER ERROR INDICAT. 
2156 * 0030F6 4C68 2835+ TBTS (R4,CS SET "CYCLE STEAL STATUS' IN PROGRESS 
003032 4020 31E8 2F66 2157 $RKEW MVA RKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 0OO030E8 4020 31E8 2F16 2836+XIOCS MVA SDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
003038 OBBB 2158 MVBI X'BB!, SET BUFFER TO B'S OO30EE 4020 31EA OOOF 2837+ MVHI X*O00F', TOMOD SET CYCLE STEAL MODIFIER 
00303A 4524 2E7C 2159 MVA SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS OO0O30F4 4C28 2838+ TBT R4&,CS) IS CS IN PROGRESS, ERROR CONDITION 
00303E 4724 0004 2160 MVWI 4,R7 SETUP BUFFER LENGTH O030F6 1213 2839+ JON TOS * YES, BYPASS SAVING I/O ADRS 
003042 2BAC 2161 FFN R3 {B5) INIT READ SECTOR ID BUFFER 0O0O30F8 6E0D 2E7A 2840+XI01 MVH R6,LSTIO SAVE £AR FOR RETRY IF REQUESTED 
003044 4020 2F74 2E7C 2162 MVA SCTID, RKDCB+ 14 DATA ADDR OO0O30FC 4324 2E84 2841+ MVA DCBUF, R3 SET UP TO ADRS TO MOVE DCB TABLE 
00304A 5045 2163 J XIO 003100 6D08 31E8 2842+ MVW IODCB,R5 * AND THE FROM ADRS, ALONG WITH 
2164 * 003104 OFTA 2843+ MVBI 26,R7 * THE NUMBER OF MOVES 
00304C 4020 31E8 2F56 2165 SWKEW MVA WKDCB, LODCB SET UP CONTROL BLOCK FOR SVC CALL 003106 2D64 2844+ MVFN SR) $83) MOVE 1 STATUS WORD AND ADJUST 
003052 4020 2F64 2F94 2166 MVA WRSID, WKDCB+14 DATA ADDR 003108 OBFF 2845+ MVBI 55,8 CLEAR CYCLE STATUS BUFFER 
003058 503E 2167 J XIO 00310A 4524 2594 2846+ NVA CSBOF,R5 * TO ALL ONES * 
2168 * 00310E OFTA 2847+ MVBI 26,R7 * 
00305A 4020 31E8 2EE6 2169 $WSEC MVA WSDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 003110 2BAC 2848+ FFN R3 4R5) * 
003060 4020 2EF4 2F94 2170 MVA WRSID, WSDCB+14 DATA ADDR 003112 4020 2E76 0708 2849+ MVWI x'6708',SIOIN OVERLAY OLD CONDITION CODES 
003066 5037 gin) F XIO 003118 CB25 2578 2800+ | MVWZ $ISB,R3 ZERO OUT OLD ISB VALUE 
+ 
003068 4020 31E8 2EC6 2173 $DIAG MVA DGDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 00311C 4CA1 2852+ TBTR R4,ER RESET ANY ERROR BEFORE I/O COMMAND 
00306E 5033 2174 J XIO 00311B 4CA3 2853+XIO2 TBTR (R4,IN CLEAR INTERRUPT RECEIVED CNTL BIT 
2175 * 003120 4724 3154 2854+ MVA OBLK, R7 SET UP CONTROL BLOCK FOR SUPVR 
003070 6EOD 2E7A 2176 S$WRTO MVW R6,LSTIO SAVE IAR FOR RETRY IF REQUESTED 003124 4CA6 2855+ TBTR (R4,$LE) RESET LEVEL ERROR INDICATOR 
003074 OBFF 2177 MVBI 255,R3 CLEAR CYCLE STATUS BUFFER 003126 4C62 2856+ TBTS RY, XI) SET EXPECTED INTR CONTROL BIT 
003076 4524 2594 2178 MVA CSBOF,R5 * TO ALL ONES * 003128 600A 2857+ SVC TART CALL SUPVR FOR I/O COMMAND 
00307A OF16 2179 MVBI 22,R7 * 2858+* 
00307C 2BAC 2180 FFN R3 (85) x 00312A 4CAT7 2859+ TBTR R4,NI) IS AN INTR EXPECTED 
0O0O307E 4524 2584 2181 MVA DCBUF, R5 CLEAR DCB BUFFER TO ALL ONES 00312C 6ACO 0002 2860+ BN R6, 2) * NO, RETURN TO USER 
003082 OF10 2182 MVBI 16,R7 * 2861+* 
003084 2BAC 2183 FFN R3 4R5) * 2862+* THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 
003086 4020 2E76 0708 2184 MVWI x'6708',$I0IN OVERLAY OLD CONDITION CODES 2863+* 
00308C CB25 2578 2185 MVWZ $1SB,R3 ZERO OUT OLD ISB VALUE 003130 4524 0000 2864+ MVWI O,R5 SET UP WORK REG FOR "LOST INTR' 
003090 4cCA3 2186 TBTR (RU,IN CLEAR INTERRUPT RECEIVED CNTL BIT 003134 4CA3 2865+XI0O8 TBTR (Ra IN) HAS INTERRUPT BEEN RECEIVED 
003092 4CA1 2187 TBTR (R4,ER RESET ANY ERROR BEFORE I/0 COMMAND 003136 1239 2866+ JON Tock * YES, CHECK IF ALL WAS SATISFACTORY 
003094 4C62 2188 TBTS (R4,XI SET EXPECTED INTR CONTROL BIT 003138 6002 2867+ SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 
003096 4724 31B4 2189 MVA OBLK,R7 SET UP CONTROL BLK FOR SUPR 2868+%* SUPVR WILL RETURN HERE 
00309A C020 31EB 2190 MVB  IOMOD+1,R0 GET IDCB FUNC/MODIFIER 00313A 6002 2869+ SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 
00309EF 402D 31EA OOFO 2191 RBTWI X'OOFO',IOMOD REMOVE FUNCTION FROM 'ToOMOD' 2870+* SUPVR WILL RETURN HERE 
OO0O30A4 3022 2192 SRL 4 RO RIGHT JUSTIFY FUNCTION BITS IN RO 00313C 7DA1 0001 2871+ AWI 1,R5 ADVANCE TIME OUT COUNT 
0030A6 F005 2193 CBI 5, R0 IDCB FUNCTION = 5? 003140 18F9 2872+ JINZ XIO8 BCH IF TIME OUT NOT REACHED 
0030A8 1003 2194 JE SRT 1 YES - ISSUE 'SVC WRIT1! 003142 4c61 2873+ TBTS R4, ER) SET ON ERROR CONTROL BIT 
OO30AA 6010 2195 SVC WRITO ISSUE WRITE DPC "4X" OP 003144 68D2 0000 2874+ B 6] * ERR *NO INTERRUPT! 
QOO30AC 6802 3130 2196 B XTO8—-4 GO WAIT FOR THE INTERRUPT 287 6 +8 I I CII ICC I al GR tok x tok kik 40% 0 3 F EB] 6** 
0030B0 6011 2197 $WRT1 SVC WRIT1 ISSUE WRITE DPC '5X* OP 2877+* . 
0030B2 6802 3130 2138 , B XIO8-4 GO WAIT FOR THE INTERRUPT go7ats SUBROUTINE 
0030B6 4020 31E8 2F26 2200 $DGWR MVA WRDCB, IODCB SET UP CONTROL BLK FOR SVC CALL 2880+* I/O EXECUTE ERROR HANDLING ROUTINE 
0030BC 6802 30DC 2201 B XIODG ISSUE START CS DIAG CMD 2881+* 
2202 * 2882+* PURPOSE 
0030CO 4020 31E8 2F46 2203 $DGRD MVA RDDCB,IODCB SET UP CONTROL BLK FOR SVC CALL 2883+* 
0030C6 6F08 2F52 2204 MVW RDDCB+12,R7 GET NO. OF BYTES TO CLEAR 2884+* THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE 
QOO30CA 6D08 2F54 2205 MVW RDDCB+14,R5 ADDR OF READ BUFFER 2885+* PROBLEM THAT WAS FOUND WHEN THE I/O COMMAND WAS ISSUED BY THE 
OO0O30CE OBFF 220.6 MVBI X'FF',R3 CLEAR TO FtS 2886+* SUPERVISOR AND IT WAS NOT ACCEPTED. 
0030D0 2BAC 2207 FFN R3, (R5) * 288 7+* 
0030D2 6802 30DC 2208 B XT6DG ISSUE START CS DIAG CMD 2888+* CALLING SEQUENCE 
2210 COPY TVAXEQ O9MAR78 2889+* 
gait oh Rant OFF Z830+% SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O COMMAND 
+ 
27,764 SER HEE EE OR SORES OO ESIC CEO E OR AOE OEETEEAD OTL TON 2892+* RETURN CONTROL 
+* 2893+* 
AE SUB-ROUTINE gbaute B (R6) * RETURN TO USERS ERROR HANDLER 
+ 
2780+%* EXECUTE INPUT AND OUTPUT COMMANDS BB ee een n Tea ee Te eT IG © tenes te en ene ee ee eee eens 
2781+* 2897+* 
2782+* PURPOSE 2898+* CC O= DEVICE NOT ATTACHED 
2783+%* 2899+* FOR 1= DEVICE BUSY 
27844+%* TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 2900+* I/0 2= DEVICE BUSY AFTER RESET 
2785+* THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 2901+* 3= COMMAND REJECT 
2786+* 2902+* 4= INTERVENTION REQUIRED 
2787+* 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED 2903+* 5= INTERFACE DATA CHECK 
2788+* THE I/0 COMMAND. 2904+* 6= CONTROLLER BUSY 
2789+* 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 2905+* 7= I/O COMMAND EXCEPTED 
2790+* ISSUED BY THIS SUBROUTINE. 2906+* 
2791+* 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 003148 706E 2907+XIOER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 
2792+* START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 00314A 336A 2908+ SRL 13,R3 POSITION CC CODE TO BITS 13-15 
2793+ 4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT 00314C C328 2E76 2909+ MVB R3,$IOIN * PUT IN LOG OUT AREA 
2794+* SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, 003150 68D2 0000 2910+ (RO) * RETURN TO USER ERROR HANDLER 
2795+* MYSTERY INTERRUPT fae) CONTROL BIT IS SET. 29 1D 4 HK Me HK He He 3 3K He KE OK OK 7 loi ik lok kk dak a aI a lok kk kok ik keakkok tak dk dkok J A DR 7 6% * 
2796+* 5. MOVES THE ADDRESS OF THE I/O CONTROL BLOCK IN R7, SET THE 2913+* IL 
2797+* EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE 'SvC START". 2914+* SUB-ROUTINE IL 
2798+* 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE I/O COMMAND, TIMING 2915+* IL 
2799+* STARTS TO DETERMINE A LOST INTERRUPT. 2916+* ERROR INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL'* IL 
2800+* 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF IT 2917+* IL 
2801+* WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 2918+* PURPOSE IL 
2802+* 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. 2919+* IL 
2803+* 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. 2920+* THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR’ IL 
2804+* 10. CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETURN. 2921+ OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE IL 
2805+* 11. CHECK TO SEE IF THE EXERCISER IS TO BE TERMINATED. 2922+* EXPECTED CODE. IL 
2806+* 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 2923+% IL 
2807+* ISSUED BY THIS SUBROUTINE. 2924+* CALLING SEQUENCE IL 
2808+* 13. CHECK THE ISB BITS THAT ARE ON. IF BIT 0 IS ON, ISSUE A 2925+* IL 
2809+* CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON, 2926+% SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/0 INTERRUPT IL 
2810+* COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. 2927+* IL 
2811+* 2928+* RETURN CONTROL IL 
2812+* CALLING SEQUENCE 2929+% IL 
2813+* 2930+* SVC EXIT RETURN TO USER VIA SUPVR IL 
2814+ THIS ROUTINE HAS THE FOLLOWING ENTRIES: 2931+* IL 
2815+* 2932.43 RIO IO OR GR 2 OO ROI RO ROC ICICI RI RO CIO I aK dak iag tog kik ako TT 
2816+* --> BAL ) OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 2933+* TL 
2817+* --> BAL xXI01 MOD PARM PRELOADED IN ‘tomob' 2934+* CC O= CONTROLLER END ISB O= ADD STATUS TL 
2818+* --> BAL XIOCS, R6 OR XEQ START CYCLE STEAL STATUS, MOD=F 2935+* FOR 1= PROGRAM CONTROL INTERRUPT BITS 1= COMD REJECT IL 
2819+* --> BAL XIOCS-4,R6 AUTO CS STATUS (FOLLOWING OTHER XIO 2936+* INTR = EXCEPTION INTERRUPT FOR 2= INCOR LENGTH IL 
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2937+%* 3= DEVICE END INTERRUPT INTR 3= DCB SPEC CK IL 3054+* 
2938+* 4= ATTENTION INTERRUPT 4= STG DATA CK TL 3055+* SUBROUTINE 
2939+ 5= ATTENTION / PROGRAM CNTL INTR 5= INV STG ADRS IL 3056+* 
2940+* 6= ATTENTION / EXCEPTION INTR 6= PROTRCT CK IL 3057+* CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE 
2941+* 7= ATTENTION / DEVICE END INTR 7= I-FACE DATA bie 3058+* 
29424 L 3059+* PURPOSE 

003154 706E 29434+INTER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 Lt 3060+* 

003156 336A 2944+ SRL 13,B3 POSITION INDICATORS IN R3 EL 3061+* TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 

003158 4424 2E6E 2945+ MVA OPTN1, R4 SET UP BASE ADRS IL 3062+* PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 

00315C 4c28 2946+ TBT (Ra c§) IS CS IN PROGRESS nae 3063+* TO INTERRUPT. 

00315F 1006 2947+ JOFF INTES * NO IL 3064+* 

003160 4C6A 2948+ TBTS (R4,CE TURN ON CYCLE STEAL INTER ERROR IL 3065+* CALLING SEQUENCE 

003162 6FOD 2582 2949+ MVW R7,DEV SAVE CS ERR ISB VALUE, BITS 0-7 IL 3066+* 

003166 C328 2E83 2950+ MVB R3,DEV4+1 * AND THE COND CODE IL 3067+* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 

00316A 500A 29514 J INTR1 L 3068+* 

00316C 4c24 2952+INTES TB {Re XE) TEST EXPECTED ATTEN / ERROR IND IL 3069+* --> BAL SCONC, R6 CLEAR DEV DEP STG AND CONNECT I/O BLK 

00316E 1002 2953+ JOFF NTE&T BCH IF NOT EXPECTED i 3070+* --> BAL SCONP, R6 PREPARE DEVICE ONLY, ALREADY CONNECT 

003170 F304 2954+ CBI 4,R3 IS THIS AN "ATTENTION! INTR IL 3071+* 

003172 1006 2955+ JE ThTR1 * YES, BCH TO END INTR SEQUENCE IL 3072+* RETURN CONTROL 

003174 4C61 2956+INTET TBTS {Ra ER) SET ERROR ON I/O COMMAND CNTL BIT IL 3073+* 

003176 5004 2957+ J NTR1 TL 3074+* BXS (26 2) RETURN TO USER VIA REG 6 IF OKAY 
2958+* THE ERROR INTERRUPT USES THE SAME IL 3075+* OR B ROS * IF THE DEVICE COULD NOT BE CONNECTED 
29594+* ENDING SEQUENCE AS THE NORMAL INTR IL 3076+* 

29 6 148% ER RO IO I I I OR oR a aktoktok tok toktokk TA PRT6IL JOT 7 RK HK KK RK aK KK IK IK IK KK ok ie ak ak a fc 2k ok ak oi a ak ak a kc fee ae akc akc ae ak akc a ic ac af of akc ofc ac af afc ake ake 
2962+ IL 0031F8 OF06 3078+$CONC MVBI 6,R7 NUMBER OF BYTE TO CLEAR 
2963+* SOUBROUTINE TL 0031FA 0OBOO 3079+ MVBI 0,R3 * AND THE DATA TO USE 
2964+ IL 0031FC 4524 2E7C 3080+ MVA DEV1,R5 * ALONG WITH THE ADRS TO USE 
2965+* OKAY INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL* EL 003200 2BAC 3081+ FFN R3 (85) * 
2966+* TL 003202 CB25 2E72 3082+ MVWZ OPTN3,R3 CLEAR OLD CONTROLS FOR NEW ROUTINE 
2967+* PURPOSE IL 003206 4724 31F0 3083+ MVA INTBL,R7 SET R7 TO CONTROL BLOCK AND 
2968+* IL 00320A 6014 3084+ SVC CICB * CONNECT IT TO THIS DEVICE 
2363+* TO CHECK THE INTERRUPT AND CONTINUE THE TEST IL 00320C 6ADO 0000 eaee BN (R6) * EPROR RETURN TO USER 
+ IL 
2971+* CALLING SEQUENCE IL 003210 8828 2EB4 31E8 3087+$CONP MVW SINTL,IODCB PUT IN LEVEL & INTR PARAMETER 
2972+ TT 003216 4724 31E4 3088+ MVA IOBLK,R SET R7 TO CONTROL BLOCK TO PREPARE 
2973+* SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED TL 00321A 4020 2E76 0708 3089+ MVWI X'0708', SIOIN INITIALIZE CONDITION CODE STORAGE 
29744 THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE IL 003220 CB25 2E78 3090+ MVWZ $ISB,R3 * AND CLEAR OLD ISB VALUE 
2975+* AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE IL 003224 6E0D 2E7A 3091+ MVW R6,LSTIO SET UP ADDRESS THAT STARTED LAST 1/0 
2976+% COMMON SECTION IS HANDLED HERE. IL 003228 600C 3092+ SVC PREP * AND CALL ON SUPVR 
2977+ TL 00322A 5601 3093+ BXS (R6, 2) RETURN TO USER 
2978+* RETURN CONTROL IL 30.9542 I I EG GIO RG III IG II aI aia aa koto kK 0 6 A PRT 6 40k 
2979+* ue § 3096+%* 
2990+* SVC EXIT RETURN TO USER VIA SUPVR IL Sethe SUBROUTINE 
+ Ti 
2982+ HE I I RII I I IO i OK KR Ik aR a ki ak ake sak tek kot kokokak T 7 3099+* DISCONNECT THE INTERRUPT CONTROL BLOCK AND LOG ERRORS 

003178 706E 2983+INTOK CPLSR R3 COPY STATUS ANY LEVEL INTO R3 IL 3100+* 

00317A 336A 2984+ SRL 13,R3 POSITION INDICATORS IN R3 TL 3101+* PURPOSE 

00317C 4424 2E6E 2985+ VA OPfN1, RY SET UP BASE ADRS IL 3102+* 

003180 ‘“4c63 2986+INTR1 TBTS Ry,1f SET INTERRUPT RECEIVED IL 3103+* DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 

003182 4¢28 2987+ TBT R4,CS IS 'CS IN PROGRESS! ON IL 3104+* SET THE 'NO GOOD' CONTROL BIT, THEN LOG THE DATA THAT HAS 

003184 1204 2988+ JON NTR2 * YES, BCH AROUND UPDATE TL 3105+* BEEN FOUND TO HELP THE OPERATOR DEFINE THE ERROR CONDITION. 

003186 C328 2E77 2989+ MVB R3,$1OIN+1 SAVE £NTERRUPTING CC CODE ie? 3106+* 

00318A 6FOD 2E78 2990+ MVW R7,$1ISB SAVE INTR STATUS AND DEV ADRS IL 3107+* CALLING SEQUENCE 

00318E 29914INTR2 EQU * IL 3108+* 
2992+* PCL R5 CURRENT LEVEL COPIED BY DCP IL 3109+* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 

00318E 3521 2993+ SLL 4 RS POSITION INTR LEVEL AND PUT IL 3110+* 

003190 0501 29944 ABIL 1,R5 * IN "It pre IL 3111+* ~-> B SERRS SET 'NGt BIT AND CONVERT DATA TO LOG 

003192 CD24 2EB4 2995+ CW $INTL, R5 IS THIS THE CORRECT INTR LEVEL IL 3112+* --> B SCONX RETURN TO MDI SUPERVISOR TO TEST STS 

003196 1002 2996+ JE INTR3 * YES, GO EXIT THIS LEVEL Te 3113+* 

003198 4C66 2997+ TBTS R4,$LE) SET IfTR LEVEL ERROR CONTROL BIT IL 3114+* RETURN CONTROL 

00319A 4C61 2998+ BTS R4,ER SET ERROR ON I/O COMMAND CNTL BIT IL 3115+* 

00319C 4CA2 2999+INTR3 TBTR R4,XI WAS INTERRUPT EXPECTED IL 3116+* B TURTN* RETURN TO MDI 

00319EF 1204 3000+ JON nTRX * YES, EXIT OFF THIS INTR LEVEL Ti 3117+* OR B (R6) * IF THE DEVICE COULD NOT BE CONNECTED 

0031A0 4C60 3001+ TBTS fet MI) * NO, SET MYSTERY INTR CONTROL BIT IL 3118+* 

0031A2 F304 3002+ CBI R3 ATTENTION INTERRUPT? IL 3119 + RR I I IO ORI OR OR OO oR a RRR I ia RIO I ki fk ak 

0031A4 1001 3003+ JE INTRX YES IL 00322C 4020 1818 8000 3120+$ERR$S MVWI X*8000', ,TUSTATUS SET ON "NO GOOD! STATUS BIT 

0031A6 4Cé6C 3004+ TBTS R4,NG) ERROR,UNEXPECTED INTERRUPT IL 003232 4724 33FC 3121+ MVA HEBLK,R? GET ADRS OF CONTROL BLOCK 

0031A8 6006 3005+INTRX SVC Xrt EXIT THIS LEVEL VIA SUPVR TO PGM IL 003236 601A 3122+ SVC HTOE CONVERT HEX TO EBC VIS DCP 
3007 4 ER I II IO III IIR IO ti kk 90K 3 F EBT 6 ** 003238 4020 188E 4040 3123+ MVWI X'4040*,TUWORK+116 
3008+* 00323E 4020 1890 4040 3124+ MVWI X'GO4Ot, TUNORK+118 
3009+* THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT 003244 4020 1892 4040 3125+ MVWI X'GO40', TUWORK+120 
3010+* HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN 00324A ODO04 3126+$PRNT MVBI 4,R5 
3011+* RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. 00324C 4324 181A 3127+ MVA TOWORK, R3 SET UP BUFFER STORAGE 
3012+ 003250 6B0D 33F4 3128+ MVW R3,BUFPT 
3013+* 003254 4124 32D0 3129+ MVA LINE1,R1 

OO31AA 4CAY4 3014+XIOCK TBTR R4, XE) WAS AN ERROR EXPECTED 003258 OFO4 3130+ MVBI 4,R7 

0031AC 6ACO 0002 3015+ BN RG 2) * YES, EXIT THIS ROUTINE 00325A OEO8 3131+ MVBI 8,R6 

0031B0 4CA8 3016+ TBTR R4,CS) WAS AUTO CS IN PROGRESS 00325C 2B24 3132+MVBUF MVFN (R3 , (R1) 

0031B2 1006 3017+ JOFF TOCV * NO, CONTINUE CHECKING 00325E OFO4 3133+ MVBI 58 

0031B4 4C2A 3018+ TBT iy CE) 1s c& IN AN ERR CONDITION 003260 OA4O 3134+ MVBI X'40',R2 

0031B6 1002 3019+ JOFF TOCO * NO, BCH 003262 C258 3135+ MVB R2 (gine 

0031B8 68D2 0000 3020+ B R6) * cs ERROR 003264 BEFB 3136+ JCT MVBUF,R6 

0031BC 4C69 3021+XIOCO TBTS R4,CSA) TURN ON CS STATS AVAIL FLAG 003266 OQE08 3137+ MVBI 8,R6 

0031BE 5601 3022+ BXS RO, 2} GO TO USER 003268 7921 002Cc 3138+ AWI 4h R41 

0031Cc0O 4c21 3023+XIOCV TBT R4,ER) WAS ERROR INTR CONTROL BIT ON 00326C BDF7 3139+ JCT MVBUF 

0031C2 100D 3024+ JOFF TOCX * NO, EXIT THIS ROUTINE 00326E 4020 1802 FIFO 3140+ MVWI PIDMSG10,PID+2 
3025+* 003274 4020 19B8 33FA 3141+ MVA  FAKETU,aDCADD1 

0031C4 C520 2E77 3026+ MVB S$IOIN+1,R5 GET LAST INTR CC CODE 00327A 4020 19BA 33F6 3142+ MVA DC2PT, @DCADD2 

0031C8 F502 3027+ CBI 2,R5 IS THIS CC=2 003280 402c 19C4 0080 3143+ OW! BIT0080,SUPSTAT 

0031CA 1003 3028+ JE xfoco YES 003286 4324 2E74 3144+ MVA $TUID,R SET UP BUFFER STORAGE 

0031CC F506 3029+ CBI 6,R5 IS THIS CC=6 00328A 6F13 18BA 3145+ BAL TUMSGHTR*,R7 GO TO MESSAGE WRITER 

0031CE 68D1 0000 3030+ BNE (Ro) * * NO, BCH TO ERROR HANDLER 3146+* 

0031D2 C520 2E78 3031+XIOCQ MVB ISB,R5 cet fast ISB DATA BYTE AND IF CS 00328E 3147+$CONX Fou * 

0031D6 6A00 30R4 3032+ BN Xroc §-4 * AVAILABLE, GO AND GET IT 00328E C720 19D0 3148+ MVB DEVADD,R7 GET DEVICE ADDRESS FROM MDI 

0031DA 68D2 0000 3033+ B R6) * ERROR 003292 6013 3149+ SVC RICB RELEASE INTERRUPT CONTROL BLOCK 

0031DE CB25 2E72 3034+XIOCX MVWZ PTN3,R3 CLEAR OUT OPTION 3 CNTL BITS 003294 6812 2EB6 3150+ B TURTN* RETURN TO MDI SUPERVISOR 
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0031F6 3148 3040+ DC A (XIOER) ERROR ROUTINE ADRS 0032A6 EZE4YCOCU4OC9ODECID 3156+ DC C*TUID IOIN ISB INST SECT ID DATA CSCC ! 
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3045+* 003322 0028 3161+ DC A (0040) LINE LENGTH = 40 CHAR 
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3053 +8 III IO OI IORI IR ik xk GE 1 IM AY 7 6** 0033A2 C3E260F840C3E260F 3168+ DC C°CS-8 CS-9 CS-A CS-B CS-C ' 
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